-module(fac).
-export([call/1]).

call(N) ->
    {facserver, 'bar@chad'} ! {self(), N},
    receive
	{ok, Res} ->
	    Val = Res
    end,
    io:format("Factorial of ~p is ~p.~n", [N,Val]).
